
(binop-index 'Mul)			; => 2

(binop-index 'NoSuch)		; => #f

(binop-name 2)			; => Mul

;; Evaluate to a list of strings that can be used in emacs to font
;; lock the set of binary operators.

(map symbol->string (binop-names))

